www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModelCustomPage\D_edit_a_template.asp

    
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>



<META HTTP-EQUIV="pragma" CONTENT="no-cache"> 
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate"> 
<META HTTP-EQUIV="expires" CONTENT="0">


<LINK href="css_www_aspcpu_com_newdsoft_ruandingyuan_x.css" type=text/css rel=stylesheet>
<%

dir_set="$$dir_set$$"
response.charset="gb2312"

%>


<!--#include file=$$dir_set$$inc/conn.asp-->
<!--#include file=$$dir_set$$inc/Functionb.asp-->

<!--#include file=$$dir_set$$inc/ajaxLIB.asp-->

<!--#include file=checkadmin3_www_aspcpu_com_newdsoft_ruandingyuan_x.asp-->

<!--#include file=$$dir_set$$inc/functionFiless.asp-->

<!--#include file=$$dir_set$$inc/ND_class_function.asp-->




<%
AJAXshowLoader()


%>



<%


ss4=request("fname")





strDBPath12= left(ss4,instrrev(ss4,"/"))


sssssss1=""
for i=1 to len(ss4)

if mid(ss4,len(ss4)-i+1,1)="/" then

sssssss1=i
exit for
end if
next


if sssssss1<>"" then
sssssss1=right(ss4,sssssss1-1)
else
sssssss1=ss4
strDBPath12=""
end if




'strDBPath1=路径
'filename=文件名
filename2=sssssss1

























ss4=request("pname")&"/"&request("fname")





strDBPath1= left(ss4,instrrev(ss4,"/"))


sssssss1=""
for i=1 to len(ss4)

if mid(ss4,len(ss4)-i+1,1)="/" then

sssssss1=i
exit for
end if
next


if sssssss1<>"" then
sssssss1=right(ss4,sssssss1-1)
else
sssssss1=ss4
strDBPath1=""
end if




'strDBPath1=路径
'filename=文件名
filename=sssssss1

set filea1=new Cls_FSO
if filea1.ReportFileStatus(server.mappath("$$dir_set$$Model/Models/"&ss4))=1 then
dddd=loadfile("$$dir_set$$Model/Models/"&ss4)
else
call createfile("$$dir_set$$Model/Models/"&ss4,"",true)
dddd=""
end if


%>


<script language=javascript>

function xxxdisit(){

document.getElementById("bbbbt").value="正在提交,请等待..........";
document.getElementById("bbbbt").disabled=true;


return true;
}
</script>
<div  id="l_do" style="filter:blendTrans(duration=1); width:860px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 40px;">

<form action="D_chk_edit_a_template_www_aspcpu_com_newdsoft_ruandingyuan_x.asp" method="post" onsubmit="xxxdisit();">
<table width=730 id="parms" name="parms">




<tr align="left">

<td>


<font style="font-size:17px; color:#ff0000">编辑 自定义后台管理页 
</font>


<br><br>




模板保存路径:/Model/Models/<%=ss4%>

</td>
</tr>







<tr align="left">

<td>

<%


sssp=request("fpath")

if sssp<>"" then
sssspq=split(sssp,"/")

ooosss=""

sssr=ubound(sssspq)-1


dddds=sssspq(sssr)
end if

%>
<script language="javascript">
function del_fr(){

if (confirm("确认删除?")==1){

self.location="D_del_a_moban_www_aspcpu_com_newdsoft_ruandingyuan_x.asp?fname=<%=ss4%>&pid=<%=request("pid")%>";


}

}


</script> 

<br /><br />




</td>
</tr>





</table>




<table>





<tr align="left"><td>
<font style="font-size:14px" color="#3300FF">
自定义后台管理页模板代码支持与asp代码混合写,不支持标签嵌套,但是支持标签代码内再用标签<br />
<br />调用标签时可以用$xx_var_asp$i来调用页面里asp代码中的i变量的值，
<br />
如{$$show_class(1,$xx_var_asp$i)，使标签与asp代码交互<br />
而用$xx_request_asp$i可以读request("i")的值
</font>

</td>
</tr>
<tr align="left">

<td>




<script language= JavaScript>
function aaaar(aaa){
  var arr=window.open(aaa, '', 'titlebar=no, toolbar=no, scrollbars=yes,top=20,left=10,Width=800, Height=600');
  if(arr!=null){

  }
  
  else
  {
  
  alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
  }
  
}




</script>










<hr />


<input type=button onclick="aaaar('$$dir_set$$<%=nd_web_admin_folder%>/D_select_a_adminlabel_before.asp')" value="点击本处插入一个自定义管理页标签到自定义管理页模板里">
<br><br>
  <strong> <a href="$$dir_set$$<%=nd_web_admin_folder%>/adminModel/D_view_sys_cang_labels.asp" target="_blank"><font color="#0000FF" style="font-size:15px; text-decoration:underline">点击本处查看系统特殊标签</font></a></strong>

<br><br>






<table  align="center" width=600 bgcolor="#CfCfCf" border="1" cellpadding="0">
<tr valign="middle" align="center">
<td width=50% bgcolor="#c9c9c9" height="20">
<a href="javascript:void(0)" onclick="chgedit('1')">使用纯代码编辑器</a>
</td>

<td width=50% bgcolor="#c9c9c9">
<a href="javascript:void(0)" onclick="chgedit('2')">使用可视化html文本编辑器</a>

</td>
</tr>
</table>
<br>






<input type="hidden" value="2" name="eemode" ID="eemode">


<script language="javascript">
function chgedit(a){

document.getElementById("eemode").value=a;

if (a=="1"){
document.getElementById("edt1").style.display="";
document.getElementById("edt2").style.display="none";
}

if (a=="2"){
document.getElementById("edt1").style.display="none";
document.getElementById("edt2").style.display="";
}

}
</script>













<table id="edt1" style="display:none">



<tr valign="middle" align="center"><td width=67>


后台管理页模板代码：</td>

<td width=613>
<script src="$$dir_set$$inc/admin.js" type="text/javascript"></script>

<textarea name="Content2" cols=110 rows=40><%=replace(replace_textare_for_editor(dddd&""),"%",chr(37))%></textarea>



<br><a href="javascript:admin_Size(-10,'Content2')"><img src="$$dir_set$$images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'Content2')"><img src="$$dir_set$$images/plus.gif" unselectable="on" border='0'></a>
</td>

</tr>
</table>








<hr />






<table id="edt2"><tr valign="middle" align="center"><td width=82><strong>后台管理页模板代码：</strong></td>

<td width=758>


<textarea name="Content" id="Content" style="display:none"><%=replace(replace_textare_for_editor(dddd&""),"%",chr(37))%></textarea>










<%
	
Function GetLocationURL() 
Dim Url 
Dim ServerPort,ServerName,ScriptName,QueryString 
ServerName = Request.ServerVariables("SERVER_NAME") 
ServerPort = Request.ServerVariables("SERVER_PORT") 
ScriptName = Request.ServerVariables("SCRIPT_NAME") 
QueryString = Request.ServerVariables("QUERY_STRING") 
Url="http://"&ServerName 
If ServerPort <> "80" Then Url = Url & ":" & ServerPort 


'Url=Url&ScriptName 
'If QueryString <>"" Then Url=Url&"?"& QueryString 


GetLocationURL=Url 
End Function



 Function GetUrlpath() 

ScriptAddress = CStr(GetLocationURL()) '取得当前地址 


 
GetUrlpath = ScriptAddress 
End Function



session("picbase")=GetUrlpath()&"/Model/Models/"&left(ss4,len(ss4)-1)
session("basepath_pre")=request("d")
%>
<%

if instr(1,lcase(dddd),"<html")<>0 and instr(1,lcase(dddd),"</html>")<>0 then


session("ndedt_full")="true"

else

session("ndedt_full")="false"



end if

%>








<script src="$$dir_set$$ND_editor/FCKeditor2_5/FCKeditor_fullpage_models.asp?dirstr=<%=request("dirstr")%>&basepath=<%="$$dir_set$$Model/Models/"&strDBPath1%>"></script>


<script type="text/javascript">
<!--



var oFCKeditor = new FCKeditor('Content') ;
oFCKeditor.BasePath = '$$dir_set$$Model/Models/<%=strDBPath1%>' ;
oFCKeditor.ToolbarSet = 'Default' ;
oFCKeditor.Width = '850' ;
oFCKeditor.Height = '800' ;
oFCKeditor.Value = '' ;
oFCKeditor.ReplaceTextarea() ;



//-->


</script>




</td>

</tr>




</table>










</td>
</tr>




<tr align="center" width=600>

<td>
<input type="hidden" name=pid value="<%=request("pid")%>" />

<input type="hidden" name=fname value="<%=request("fname")%>"/>

<input type="hidden" name=pname value="<%=request("pname")%>"/>
<input type="hidden" name=ss4 value="<%=ss4%>"/>


<input type="submit" value="修改" name="bbbbt" id="bbbbt"/>

</td>
</tr>



</table>

</form>
</div>






<script language=javascript>




AJAXfade(1,'l_do');

</script>


<%
AJAXcloseLoader()
%>